home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / RISCBBS / !RiscBBS / Menus / Msgbase / NewScan < prev    next >
Text File  |  1992-02-25  |  480b  |  31 lines
  1. {
  2.  report `Message newscan`
  3.  
  4.  defopt L= `Locally` 10 ``
  5.   a_reset `B`
  6.   m_read `1 N`
  7.   if RET=0
  8.     menu Msgbase.LocZipNew
  9.   else
  10.     menu Msgbase.Main
  11.   endif
  12.  endopt
  13.  
  14.  defopt G= `Globally` 10 ``
  15.   a_reset `A0 B G`
  16.   m_read `1 G N`
  17.   if RET=0
  18.     menu Msgbase.GlobZipNew
  19.   else
  20.     menu Msgbase.Main
  21.   endif
  22.  endopt
  23.  
  24.  defopt A= `Abort` 10 ``
  25.    menu Msgbase.Main
  26.  endopt
  27.  
  28.  attr 0 6
  29. }
  30. Newscan: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 eof}
  31.